home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / pyramid.skr < prev    next >
Text File  |  1996-07-26  |  1KB  |  53 lines
  1. REFSKRIPT
  2. GET_XY Pyramide Breite Höhe
  3. RETURN_IF_ABBRUCH 1
  4. GET_RESULT res
  5. COPY_WORD res 1
  6. GET_RESULT breite
  7. COPY_WORD res 2
  8. GET_RESULT hoehe
  9.  
  10. ; Dreiecks-Objekt erzeugen */
  11. OBJ_NEW  pyramide 3
  12. GET_RESULT pyr
  13. DIV breite 2
  14. GET_RESULT brhalb
  15. MUL brhalb -1
  16. GET_RESULT brhalb_min
  17.  
  18. ; 4 punkte der grundseite und 1 Punkt für spitze erzeugen
  19. ; 1.Pkt
  20. GEO_NEW_PT pyr
  21. GET_RESULT p1
  22. GEO_SET_PT pyr p1 brhalb_min brhalb_min 0
  23. ; 2.Pkt
  24. GEO_NEW_PT pyr
  25. GET_RESULT p2
  26. GEO_SET_PT pyr p2 brhalb brhalb_min 0
  27. ; 3.Pkt
  28. GEO_NEW_PT pyr
  29. GET_RESULT p3
  30. GEO_SET_PT pyr p3 brhalb brhalb 0
  31. ; 4.Pkt
  32. GEO_NEW_PT pyr
  33. GET_RESULT p4
  34. GEO_SET_PT pyr p4 brhalb_min brhalb 0
  35. ; 5.Pkt
  36. GEO_NEW_PT pyr
  37. GET_RESULT p5
  38. GEO_SET_PT pyr p5 0 0 hoehe
  39.  
  40. ; Jetzt die Dreiecke erzeugen
  41. ; Grundfläche
  42. DREI_NEW_DREI pyr p1 p3 p2
  43. DREI_NEW_DREI pyr p1 p4 p3
  44. ; Jetzt 4 seitenflächen
  45. DREI_NEW_DREI pyr p1 p2 p5 
  46. DREI_NEW_DREI pyr p2 p3 p5 
  47. DREI_NEW_DREI pyr p3 p4 p5 
  48. DREI_NEW_DREI pyr p4 p1 p5 
  49. PKL_ADD pyr
  50. ZENTRIEREN pyr
  51. PLOT_PKL
  52. RETURN 1
  53.